      * COBOL UNIT CALLING INTERFACE FOR THE LOG-PRINT FUNCTION
      * FILE : CBUC0004[.CPY]

      * THIS COPYBOOK DESCRIBES THE INFORMATION TO PRINT A LINE AND THE
      * ASSOCIATED PARAMETERS

       01  CBU-LOG-PRINT-INTERFACE.

      * INPUT DATA

           05 CBU-log-print             PIC X(8)     VALUE "CBUP0004".

           05 CBU-PRINT-ACTION          PIC X        VALUE SPACE.
              88 CBU-PRINT-A-LINE                    VALUE "P".
              88 CBU-CLOSE-PRINT-FILE                VALUE "C".
              88 CBU-PRINT-AS-A-TITLE                VALUE "T".

           05 CBU-PRINT-SPACING-INFO    PIC X        VALUE "1".
      *       (DEFAULT IS : PRINT ON NEXT LINE)
               88 CBU-PRINT-ON-NEXT-LINE             VALUE "1".
               88 CBU-PRINT-ON-NEXT-PAGE             VALUE "P".
               88 CBU-PRINT-AFTER-N-LINES   VALUE "1" THRU "3".
           05 CBU-PRINT-SPACING-NUM     REDEFINES CBU-PRINT-SPACING-INFO
                                        PIC 9.

           05 CBU-MESSAGE-TO-PRINT.
              10 CBU-MSG-LG             PIC XX.
              10 CBU-MSG-NO             PIC XXX.
              10 CBU-MSG-VAR            PIC X(115).
           05 CBU-COMPOSED-MSG          PIC X(121).

